﻿Namespace Attributes
    <System.AttributeUsage(System.AttributeTargets.Class, AllowMultiple:=True, Inherited:=True), System.Serializable()> _
    Public Class CascadeDelettingAttribute
        Inherits Attribute
        Implements IClassAttribute

        'Private _NotIdMapp As Boolean
        'Public Property NotIdMapp As Boolean

        '    Get
        '        Return _NotIdMapp
        '    End Get
        '    Set(ByVal value As Boolean)
        '        _NotIdMapp = value
        '    End Set
        'End Property


        Private _TableName As String
        Public Property TableName() As String
            Get
                Return _TableName
            End Get
            Set(ByVal value As String)
                _TableName = value
            End Set
        End Property
        Private _ThisPropertyName As String
        Public Property ThisPropertyName() As String
            Get
                Return _ThisPropertyName
            End Get
            Set(ByVal value As String)
                _ThisPropertyName = value
            End Set
        End Property
        Private _ForingIDName As String
        Public Property ForingIDName() As String
            Get
                Return _ForingIDName
            End Get
            Set(ByVal value As String)
                _ForingIDName = value
            End Set
        End Property

        Public Sub New(ByVal tableName As String, ByVal thisPropertyName As String, ByVal foreingIDName As String)
            Me.ForingIDName = foreingIDName
            Me.TableName = tableName
            Me.ThisPropertyName = thisPropertyName
        End Sub
    End Class
End Namespace
